﻿Public Class formreport
    Dim kelas As New player
    Dim xNamaFileBelajar As String
    Dim xNamaFileNilai As String
    Dim xNamaFilePuzzle As String
    Dim xUrutan As Integer = form_load.urutan
    Public Property urutan As Integer
        Get
            Return xUrutan
        End Get
        Set(ByVal value As Integer)
            xUrutan = value
        End Set
    End Property

    Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click

        form_level.Show()
        Me.Close()
    End Sub

    Private Sub formreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim xCurrent As String = System.IO.File.ReadAllText("CurrentPlayer.txt")
        Dim BacaBelajar As New System.IO.StreamReader(xCurrent & ".txt")
        lblBelajar.Text = BacaBelajar.ReadToEnd
        Dim BacaNilai As New System.IO.StreamReader(xCurrent & "skor.txt")
        lblTes.Text = BacaNilai.ReadToEnd
        Dim BacaPuzzle As New System.IO.StreamReader(xCurrent & "puzzleskor.txt")
        lblPuzzle.Text = BacaPuzzle.ReadToEnd
    End Sub

    Private Sub lblPuzzle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblPuzzle.Click

    End Sub
End Class